home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #9 / Amiga Plus CD - 2004 - No. 09.iso / amigaplus / tools / amigaos4_only / ifxlite / imagefx3 / rexx / autofx / anim_to_anim7.ifx < prev    next >
Text File  |  2004-08-03  |  885b  |  40 lines
  1. /*
  2.  * Anim_To_ANIM7.ifx
  3.  * Written by Thomas Krehbiel
  4.  *
  5.  * Convert any source animation file into an ANIM7 file.  Presumably
  6.  * the source format is not an ANIM7.
  7.  *
  8.  * Inputs:
  9.  *    Word(Arg(1),1) = Frame number (1 - N)
  10.  *    Word(Arg(1),2) = Main filename ("-" if not specified)
  11.  *    Word(Arg(1),3) = Swap filename ("-" if not specified)
  12.  *    Word(Arg(1),4) = Sequence number (?)
  13.  *    Word(Arg(1),5) = Total number of frames (N)
  14.  *
  15.  * Returns:
  16.  *    0 if successful, non-zero on failure
  17.  *
  18.  */
  19.  
  20. OPTIONS RESULTS
  21.  
  22. filename = Word(Arg(1),2)
  23. outfile  = filename||'.ANIM7'
  24.  
  25. IF EXISTS(outfile) THEN ADDRESS COMMAND 'Delete' outfile
  26.  
  27. frame = 1
  28. DO FOREVER
  29.    Message 'Converting Frame' framename
  30.    LoadMapped filename frame
  31.    IF rc ~= 0 THEN LEAVE
  32.    SaveRenderedAs ANIM7 '"'outfile'"' Keep Append
  33.    frame = frame + 1
  34.    END
  35.  
  36. KillMapped
  37. SaveRenderedAs ANIM7 '"'outfile'"' Close
  38.  
  39. EXIT
  40.